home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.07 Jul 87 / basic source / SampleS < prev   
Encoding:
Text File  |  1987-06-01  |  965 b   |  48 lines  |  [TEXT/EDIT]
  1.   REM PCMacBasic Toolbox Sample
  2. REM ©MacTutor 1987 by Dave Kelly
  3. Start
  4. break on
  5. ERROR OFF
  6. F1%=256*asc("F")+asc("O")
  7. F2%=256*asc("N")+asc("T")
  8. Fonttitle$=chr$(len("Fonts"))+"Fonts"
  9. Menuitem$=CHR$(LEN("Item 1"))+"Item 1"
  10. themenu!=USR " DC.W $A931" (304,Fonttitle$)  :REM NewMenu
  11. USR " DC.W $A933" (themenu!,Menuitem$) : REM Appendmenu
  12. USR " DC.W $A94D" (themenu!,F2%,F1%) : REM AddResMenu
  13. USR " DC.W $A935" (themenu!,0) : REM InsertMenu
  14. USR " DC.W $A937":REM _DrawMenuBar
  15. numberoffonts%=USR " DC.W $A950" (themenu!):REM CountMItems
  16. ERROR ON
  17. LOCATE ,,,1,1:REM Get rid of stupid black carret when program closes.
  18. print"There are ";numberoffonts%;" items in the 'Fonts' menu"
  19.  
  20. KEY(8) ON:ON KEY(8) gosub Fontmenu
  21.  
  22. Files menu on:on files menu gosub Filesmenu
  23.  
  24. Edit menu on:on edit menu gosub Editmenu
  25.  
  26. Loop
  27. goto loop
  28.  
  29. Fontmenu
  30. beep
  31. print "Font menu was selected"
  32. menu
  33. return
  34.  
  35. Editmenu
  36. menu
  37. item%=EDIT(0)
  38. print item%
  39. return
  40.  
  41. Filesmenu
  42. item%=FILES(0)
  43. print item%
  44. menu
  45. END
  46.  
  47.  
  48.